ocr: Oracle Power Objects File Edit Object View Run Window Help D L EE L ih aE EE E Main btnEnterSQL Properties btnExecSQL Properties S_BYCUST A 40 D 3 e0 D. 11 t E Bitmap t VClick t DO VClick Sub Click() SelesByCountrtrmSBC SqlCommant Sub Click() DIM VsQLstmt AS String Class - Sq/Comma V SqlCommand.s sizex600 vsQLstmt == flds@LText.value 0 L Palcommand.sizey-160 IF NOT ISNULL (vSQLstmt) THEN - rthe SalStater t Belf.PositionX-15 EXEC msgbox SQL SQLErrText() vsQLstmt Belf.Position/-45 fldSQLText - fldsQLText. sizex=460 ELSE Execute SQL fldsQLText.sizey=150 MsgBOX " Empty SQL string" Btnsxecs@t.sizex ...
